home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Tools & Utilities
/
Collection of Tools and Utilities.iso
/
basic
/
iqb9203.zip
/
CHDRIVE.BAS
next >
Wrap
BASIC Source File
|
1992-01-22
|
400b
|
18 lines
' ChDrive.Bas - Support module to contain the ChDrive subprogram.
' $INCLUDE: 'CHDRIVE.BI'
' $INCLUDE: 'QB.BI'
SUB ChDrive (DriveSpec$)
' ChDrive - Changes the currently logged drive to that specified
' by the first character of the DriveSpec$ argument.
DIM Regs AS RegType
Regs.AX = &H0E00
Regs.DX = ASC(DriveSpec$) - &H41
Interrupt &H21, Regs, Regs
END SUB